home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_A.d64 / turtle demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.1 KB  |  167 lines
  1. 0 rem t u r t l e   d e m o
  2. 1 rem by peter menke
  3. 2 :
  4. 3 (NULL) 1,0,0:(NULL)15:(NULL)
  5. 4 :
  6. 10 rem roboter-kopf
  7. 20 (NULL) 120,160
  8. 30 (NULL) 2:(NULL) 10
  9. 40 (NULL) 0:(NULL) 30
  10. 50 (NULL) 2:(NULL) 10
  11. 55 (NULL) 4:(NULL) 40
  12. 60 (NULL) 2:(NULL) 100
  13. 65 (NULL) 0:(NULL) 100
  14. 70 (NULL) 6:(NULL) 100
  15. 90 (NULL) 4:(NULL) 40
  16. 100 (NULL) 6:(NULL) 10
  17. 110 (NULL) 0:(NULL) 30
  18. 120 (NULL) 6:(NULL) 10
  19. 121 :
  20. 122 rem linkes ohr
  21. 130 (NULL) 110,105
  22. 140 (NULL) 4:(NULL) 15
  23. 150 (NULL) 2:(NULL) 30
  24. 160 (NULL) 0:(NULL) 15
  25. 161 :
  26. 162 rem rechtes ohr
  27. 170 (NULL) 210,105
  28. 180 (NULL) 0:(NULL) 15
  29. 190 (NULL) 2:(NULL) 30
  30. 200 (NULL) 4:(NULL) 15
  31. 201 :
  32. 202 rem mund
  33. 210 (NULL) 130,120
  34. 220 (NULL) 6:(NULL) 10
  35. 230 (NULL) 0:(NULL) 60
  36. 240 (NULL) 2:(NULL) 10
  37. 241 :
  38. 242 rem nase
  39. 250 (NULL) 152,100
  40. 260 (NULL) 0:(NULL) 16
  41. 270 (NULL) 3:(NULL) 8
  42. 280 (NULL) 4:(NULL) 1
  43. 290 (NULL) 5:(NULL) 8
  44. 291 :
  45. 292 rem linkes auge
  46. 293 (NULL) 130,60:(NULL) 0
  47. 295 fort=1to4
  48. 300 (NULL) 15
  49. 310 (NULL)2
  50. 320 next
  51. 330 :
  52. 340 rem rechtes auge
  53. 350 (NULL) 190,60:(NULL) 6
  54. 360 fort=1to4
  55. 370 (NULL) 15
  56. 380 (NULL) 2
  57. 390 next
  58. 400 :
  59. 410 (NULL) 1:print"[147][135]         t u r t l e    d e m o"
  60. 420 print"             by peter menke"
  61. 430 fori=0to4000:next
  62. 440 (NULL) 0
  63. 450 :
  64. 460 :
  65. 461 rem spirale
  66. 470 (NULL) 1,2,2:(NULL) 0:(NULL):(NULL) 160,100
  67. 480 fori=1to66
  68. 490 (NULL) 1
  69. 500 (NULL) i
  70. 510 next
  71. 511 fori=1to1000:next
  72. 520 :
  73. 530 :
  74. 540 rem viereck-spiralen
  75. 541 (NULL):(NULL)1
  76. 550 (NULL) 1,2,2:fori=1to200step2
  77. 560 (NULL) 2:(NULL) i:next
  78. 561 (NULL) 160,100
  79. 570 fori=1to195step2
  80. 580 (NULL) 2:(NULL) i:next
  81. 590 (NULL) 160,100
  82. 600 fori=1to195
  83. 610 (NULL) 2:(NULL) i:next
  84. 620 :
  85. 630 :
  86. 640 rem muster
  87. 641 (NULL)1,5,5:(NULL):(NULL)0
  88. 650 fori=1to45
  89. 660 forx=0to7
  90. 670 (NULL)x
  91. 671 (NULL) i
  92. 680 nextx
  93. 700 next
  94. 710 :
  95. 720 (NULL)1,5,5
  96. 730 fori=1to45
  97. 740 forx=0to7
  98. 750 (NULL)x
  99. 761 (NULL)i
  100. 780 nextx
  101. 790 next
  102. 800 fori=1to2000:next
  103. 810 :
  104. 820 :
  105. 830 rem pyramiden
  106. 840 (NULL)1,6,6:(NULL):(NULL)15
  107. 850 fori=1to33
  108. 860 forx=0to7
  109. 870 (NULL) x
  110. 871 (NULL) i
  111. 880 nextx
  112. 900 next
  113. 910 :
  114. 930 fori=1to33
  115. 940 forx=0to7
  116. 950 (NULL) 7-x
  117. 961 (NULL) i
  118. 980 nextx
  119. 990 next
  120. 991 fori=1to8:(NULL)
  121. 992 forx=1to500:next
  122. 993 next
  123. 1000 :
  124. 1010 :
  125. 1011 rem inverses muster
  126. 1020 (NULL)7,7:(NULL) 0:(NULL)
  127. 1030 fory=1to4:(NULL) 1:(NULL) 2
  128. 1040 fori=1to100
  129. 1050 (NULL) i
  130. 1060 forx=1to7
  131. 1070 (NULL) x:(NULL)x:nextx,i,y
  132. 1080 :
  133. 1090 :
  134. 1111 rem strich-muster
  135. 1120 (NULL)1,8,8:(NULL) 0:(NULL)
  136. 1130 fory=1to4:(NULL) 1:(NULL)2
  137. 1140 fori=1to45
  138. 1150 (NULL) i
  139. 1160 forx=1to10
  140. 1170 (NULL) x:(NULL) x:nextx,i,y
  141. 1181 :
  142. 1182 :
  143. 1183 rem joystick zeichnen
  144. 1184 (NULL) 1,10,10:(NULL)0:(NULL)
  145. 1185 (NULL)1
  146. 1186 print"[147][135]    joystick-zeichnen (port 2)"
  147. 1187 print"    weiter mit f7"
  148. 1188 (NULL)5
  149. 1189 :
  150. 1190 :
  151. 1191 rem lightpen zeichnen
  152. 1192 (NULL) 1,1,1:(NULL)0:(NULL)
  153. 1193 (NULL)1
  154. 1194 print"[147][135]    lightpen-zeichnen (port 1)"
  155. 1195 print"    weiter mit f7"
  156. 1196 (NULL)
  157. 1197 :
  158. 1198 :
  159. 1200 rem zufall
  160. 1210 (NULL) 1:(NULL):(NULL) 1,9,9
  161. 1220 (NULL) 1
  162. 1230 print"[147][135]zufallsmuster
  163. 1240 [153]"schluss mit run/stop-taste
  164. 1250 x1=int(rnd(1)*300)+10:x2=int(rnd(1)*150)+10:x3=int(rnd(1)*8)
  165. 1260 (NULL) x1,x2:(NULL) x3:(NULL) 1
  166. 1270 goto1250
  167.